(byte-compile-insert-header): If compiling for vers 18,

arrange to set current-load-list when loadingthe file.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fccba021a8e0bbadf5640a4b2d8b2a34be600c9e..dd832fae11e3be1fa85c7ab79666bd954e617b2f 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1410,8 +1410,10 @@ With argument, insert value in current buffer after the form."
                         1 -1)
              (if byte-compile-dynamic-docstrings
                  "' was compiled for Emacs 19.29 or later\"))\n\n"
-               "' was compiled for Emacs 19\"))\n\n")
-             )))
+               "' was compiled for Emacs 19\"))\n\n"))
+    (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n"
+           "\n")
+    ))
 
 
 (defun byte-compile-output-file-form (form)